home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / LINEMENU.DO < prev    next >
Text File  |  1991-07-11  |  194b  |  9 lines
  1. /*
  2.     demo of the Linemenu class
  3. */
  4. m = new(Linemenu,1,5,5,40,54,54,[1,2,3,4,5,6],
  5.     ["first","second","third","fourth","fifth","sixth"]);
  6. c = choice(m);
  7. remove(m);
  8. ? "your choice was ",c;
  9.